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ABSTRACT 
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ENVIRONMENT 
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9 : Symbol defintions 
; 
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Shexdet Key offsets 
def iCref contret table offsets 


-psect S$code$,exe,nowrt 


00000028 0000000D 00000004 00 steps: .long 1, 4, 13, 40, 121, 364, 1093, 3280, 9841, 32767 ;Steps for shellsort 


Gonnn028 enone apgepeae axeangen 88 
> OOOOeF FE 00009671 
00 8 numsteps = .-steps/4 
0 default displacement ,word 
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CRF SUB subroutines for cross reference 15-SEP-1984 23:38: AX/VMS Macro v04-00 Pa 
v04-000 sort_hash_table sort the hash table into 4=-SEP-1984 33:39:08 LORE SRCICRF SUB. MARS 1 = a 
6 $3 -sbttl sort _hash_table sort the hash table into a List 
65 34+ 
S 96 ; 
2 : Inputs: 
6 é3 : 4(ap) number of entries in hash table 
0 0; 8(ap) Address of vector to hold addresses of sorted entries 
| 71 ; ri Address of cross-reference control table 
09 : 73 : Outputs: 
$0 75; ' the hash table is sorted and the vector is filled in with the 
00 4 £6 3 addresses of the key blocks 
09 ; ht 
O7FC 4 ; 0 sentry sort_hash_table,“m<r2, r3, r4, 5, r6, r7, 78, r9, r10> 
002A 1; 
8 Be ; determine highest step to use 
5A D4 O02A Bi 7 clrl r10 sindex starts at 0 
50 OC AB 00 002C 85 movl crf$l_entries(r11),r0 ;get number of keys 
50 D4 AF4A 01 0030 86 10$: cmpl steps?8(r10J,r0 sthis step high enough? 
09 18 0035 87 bgeq 208 if geq yes 
FFF3 SA O01 OQO7 F1 0037 88 acbl #<numsteps-3>,41,r10,10$;no--look through all - 3 
5A 07 00 003D 89 movl #<numsteps-35> r16 z;lots of symbols--use all steps 
7E OB AC O04 (C3 0040 90 208: subl3 #4,8(ap),-(sp zset table address-4 on stack 
50 oD O0e3 4! pushl r0 zsset # of entries on stack 
pees $8 : now copy addresses of all entries into the table 
59 D0 0047 «(95 movil = er f$l_hasht(r11),r9 sget address of hash table 
58 08 AC DO O04A 96 movl 8(ap) r8 :get address of sorted list vector 
55 04 aC 00 ones 3p movl 4(ap),r5 get no. of entries in hash table 
57 89 00 0032 99 308: mov l (r9)+,r7 znext hash table entry 
28 13 005 100 beql 50$ sif eql then empty bucket so skip it 
88 5 dO BoA 101 40$: mov l r7,(r8)+ sput entry into sorted List 
5? 67) COD O5A 106 mov | oerhh neekte rt Ae schain down the hash bucket ; 
F8 12 0050 £10 bneq 40 sand insert them all into the sorted List 
FO 55 F5 OOSF 104 50$: sobgtr r5,30$ sloop over all hash entries : 
01 6E€ D1 006 105 cmp (sp) ,#1 zsIf there are not at least two entries 
60 18 94 136 blequ sort_exit 3; then quit now 
0067 108 ; now do the shell sort on the List. The shell sort is described in 
444 1 3; Knuth Vol. 5 and is also referred to as the Diminishing Increment Sort. 
67 111 Shell_sort: 
59 95 AF4A D0 0067 116 108: movl syepstri03.r9 iget etep value for this ‘'t"’ 
58 O1A9 9 : 11 movab 1(r9),r8 set up loop for Steprs to index 
56 04 BEB OD 114 208: movil. ad(spCr8).r6 tget address of key block for j'th key 
58 59 «CC 7 115 subl3 °9,r8,r7 pizjoh 
55 08 a6 D 79 118 308: movl koyst pezgerir6).r5 sget j'th key address 
54 04 BES D 07D 11 mov a4 sp7tr 74 :get address of key block for i'th key 
53 8 AS (OD bbe 118 movl key$l_keyadr(r4) ,r3 sget key address 
1 ABC*é 6 119 blbs crfSbikeytype(r11),40$8 branch if binary keys 


CRF SUB subroutines for cross reference 15-SEP-1984 23:38: AX/VMS Macro v04-00 Page 
v04-000 sort _hash_table sort the hash table into raat ety 7 33:39:08 CRF .SRCICRFSUB.MAR; 1 : 
0 oA A 120 movzbl (r5)+,r0 get key lengths 
af : 7.) BD 121 movzbl (r3)+,r1 i ‘ . 
8 58 1 ¢ pushr #*m<r4,r5> 
63 51 00 65 D 0092 «1 empcS =r 0, (r 5,40, r1, (3) scompare keys 
° BA 9 124 opr #*m<r4,r5> 
\f 9A 125 gequ 50$ 
19 1 09c Oo § brb oys 
53 5 D1 iH 127 40$: cmpl r5,r3 scompare binary keys 
1f OOAT 1 8 blssu 608 
9 C1 a3 129 50S: addl r7,r9,r0 compute ith 
04 BESO 56 00 00a7 130 movi 6,a4(sp)Cr0J tids(ith) = val 
10 11 OOAC 131 br 70$ 
5 C1 A 1 ; 60$: addl\3—s r7,r9,r0 sids(ith) = ids(i) 
04 BESO re 08 0B 1 movl r4,a4(sp)Cr0) 
, §¢ 0B 134 subl2 9,r7 yizich 
BD 14 OOBA 135 botr 308 
a on Gop 3 § brb 50$ 390 set ids(ith)=val 
FFAC 58 O01 =6€ F1 OQOBE 137 70$: acbl (sp) #1,78,20$ sloop for all entries in table 
AO 5A F& O00C& 138 80S: sobgeq ri ,10$ sloop for all steps 
00C7 139 sort_exit: 
04 O00C7 140 ret 
00c8 141 
00C8 142 ~END 


CRF SUB subroutines for cross reference uF fat Lat 9 33:38:68 AX/VMS Macro V04-00 Page 
Symbol table 4-SEP-1984 25:39: CRF .SRCICRFSUB.MAR; 1 
CRFSB_KEYTYPE = 8 
CRESL_ENTRIES = 
CRF SL-HASHT = 
KEYSC_LENGTH 1 
KEYSK_LENGTH : 1 
KEYSL_DEF 14 
KEYSL_KEYADR 08 
KEYSL_NEXT 
KEYSL_REFLIST 4 
KEYSL_VALADR 6 
KEYSUCVALELG : 
NOMS TEPS = 80000008 
SHELL. SORT 0000067 R 0 
SORT_EXIT eet R 0 
SORT _HASH_TABLE 00000028 RG 0 
STEP 00000000 R 0 

-wosewm ever eecreaarne > 

! Psect synopsis ! 

ntwmiiamemannial: 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000018 $3" 01 ¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SCODES 000000c8 (« 200.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

oe 
; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 43 00:00 200.07 00:00:00.27 
Command processing 168 00:00:00.57 00:00:02.72 
Pass 1 136 00: Bae OF 1802 R8 «Be 
Symbol table sort 0 0:00:00.04 00:00:00.04 
Pass 2 42 0: Boa C5 0:00:01.29 
Symbol table output 4 0:00: 8-05 0:00:00.04 
Psect synopsis output 1 00:00:00.0 0:00:00.02 
Cross-reference output 0 00:00: 344 00:00:00.00 
Assembler run totals 396 00:00:02.5 00:00:09.22 


The working set Limit was 1050 pages. s 

5569 bytes (11 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 54 non-local and 15 local symbols. 
142 source Lines were read in Pass 1, protec (re 15 object records in Pass 2. 

9 pages of virtual memory were used to define & macros. 
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! Macro Library statistics ! 


tere et ewww ween ee ene ww ene an $ 


Macro Library name Macros defined 
8:CCRF .OBJICRF .MLB;1 
mR ittthy es Pere oes etaRcer MLB; 2 
TOTALS (all Libraries) 


117 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CRFSUB/OBJ=0BJ$:CRFSUB MSRC$: CRF SUB/UPDATE=(ENHS$:CRF SUB) +LIB$:CRF/LIB 
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